COMMENT ⊗   VALID 00002 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	BEGIN "PRNCAM"
 00004 ENDMK
⊗;
BEGIN "PRNCAM"
	REAL ARRAY TMP[0:9];INTEGER FLG;
	STRING STR;
	OPEN(1,"DSK",8,1,0,0,0,0);OUTSTR("	FILE = ");STR ← INCHWL;
	LOOKUP(1,STR&".CAM",FLG);ARRYIN(1,TMP[0],10);RELEASE(1);

OUTSTR("CAMERA LOCATION:

	CX = "&CVG(TMP[0]*12*3.280833)&" INCHES.
	CY = "&CVG(TMP[1]*12*3.280833)&" INCHES.
	CZ = "&CVG(TMP[2]*12*3.280833)&" INCHES.

CAMERA ORIENTATION:

	PAN = "&CVG(180*TMP[3]/3.1415927)&"
	TILT = "&CVG(180*TMP[4]/3.1415927)&"
	SWING = "&CVG(180*TMP[5]/3.1415927)&"

CAMERA SCALE:

	PDX = "&CVG(10↑6*TMP[6])&" MICRONS.
	PDY = "&CVG(10↑6*TMP[7])&" MICRONS.
	PDZ = "&CVG(10↑6*TMP[8])&" MICRONS.
	FOCAL = "&CVG(10↑3*TMP[9])&" MILLIMETERS.
");
END "PRNCAM";